dok1 <- "There was a man who had a donkey,"
dok2 <- "which had served him faithfully for many years,"
dok3 <- "but now his strength was running out,"
dok4 <- "so that he became more and more unfit for work."
bremstmus <- cbind(dok1, dok2, dok3, dok4)
corp_bremstmus <- corpus(bremstmus)
toks_bremstmus <- tokens(corp_bremstmus)